Top 10k strings from Dominoes (1983)(CCS).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   4 ;Z$(A,PN,2
   4 (Z$(A,PN,4
   4 (Z$(A,PN,2
   3 ;"            "
   3 ;"                                "
   2 RL,RE;Z$(A,PN,4
   2 RL,RE;Z$(A,PN,2
   2 LL,LE;Z$(A,PN,4
   2 LL,LE;Z$(A,PN,2
   2 G$="Tails"
   2 G$="Heads"
   2 ;A$((O(F,1
   2 ;"                    ";
   2 ;"                                ":
   2 (Z$(A,RT+1
   1 a$="DOMINOES"
   1 ^PRINT ROUTINE^
   1 ^PLAYER WON^
   1 ^INSTRUCTIONS
   1 ^EXCESS KNOCKING            GOTO 1045 IF GAME NOT-           ENDED
   1 ^COMPUTERS MOVE^
   1 ^COMPUTER WON^
   1 Z(R)=Z(R)-2
   1 Z(R)=Z(R)+Y(R,2
   1 Z(R)=Z(R)+2
   1 Z(R)=Z(R)+(100
   1 YOU WON THE TOSS-DO YOU WANT TO
   1 RIGHT:NORMAL
   1 RIGHT:INVERTED
   1 LEVEL OF PLAY
   1 LEFT:NORMAL
   1 LEFT:INVERTED
   1 I WON THE TOSS-I'LL GO FIRST
   1 GO FIRST ?
   1 DOMINOES  
   1 Copyright CCS LIMITED                                               1983.
   1 A$="(0:0)(1:0)(1:1)(2:0)(2:1)(2:2)(3:0)(3:1)(3:2)(3:3)(4:0)(4:1)(4:2)(4:3)(4:4)(5:0)(5:1)(5:2)(5:3)(5:4)(5:5)(6:0)(6:1)(6:2)(6:3)(6:4)(6:5)(6:6)"
   1 ;Z2;"             "
   1 ;Z1;"        "
   1 ;GW;" GAMES WON";
   1 ;GL;" GAMES LOST"
   1 ;"eads or ":
   1 ;"Your go 'K' to knock"
   1 ;"YOUR TOTAL ";
   1 ;"YOUR RESULTS:"
   1 ;"YOUR PIECES"
   1 ;"YOU WON THE GAME"
   1 ;"YOU LOST THE GAME"
   1 ;"We have both knocked!";
   1 ;"WAIT FOR TUNE TO STOP"
   1 ;"THE GAME IS A DRAW"
   1 ;"MY TOTAL ";
   1 ;"Limited."
   1 ;"LEVEL:";LEV
   1 ;"LEFT OR RIGHT (";
   1 ;"KNOCKING";
   1 ;"KNOCKING"
   1 ;"Fisher."
   1 ;"ES>>>>>>>>>COPY";
   1 ;"ENTER LEVEL:";
   1 ;"Do you wish to end the game?"
   1 ;"DOMINOES"
   1 ;"DOMINOES FOR 48K SPECTRUM"
   1 ;"C.C.S.";
   1 ;"ANOTHER GAME (Y/N)?"
   1 ;"<<<<<<<<<<";
   1 ;" MY  PIECES"
   1 ;" GAMES WON       OUT OF ";GW+GL
   1 ;" GAMES LOST      OUT OF ";GW+GL
   1 ;"       DOMINOES                 ";
   1 ;"       "
   1 ;"        PRESS ANY KEY           ";
   1 ;"         "
   1 ;"          ";
   1 ;"                ";
   1 ;"                  "
   1 ;"                   "
   1 ;"                       ";
   1 ;"                       "
   1 ;"                         "
   1 ;"                            "
   1 9) ... 1 BEING THE HARDEST"
   1 ,,,"     "; 
   1 +pn;Z$(A,RT+1
   1 *PRINT INSTRUCTION PAGE
   1 *PLAYERS MOVE
   1 **PRIORITY OF DOMINOE R
   1 )=A$((O(F,1
   1 "THE NUMBER OF THE DOMINOE OR      "
   1 "SEVEN DOMINOES."
   1 "PROMPTS THE COMPUTER GIVES YOU.    "
   1 "COMPUTER. EACH PLAYER HAVING      "
   1 "'K' TO KNOCK (I.E.YOU CANNOT",,,"GO.)    "
   1 "   YOU PLAY DOMINOES AGAINST THE      "
   1 "   WHEN YOU ENTER YOUR GO, ENTER  "
   1 "   FOLLOW THE QUESTIONS AND      "